Probably solve http://bugzilla.wikipedia.org/show_bug.cgi?id=733
[lhc/web/wiklou.git] / config / index.php
index c97d78b..fe0ad95 100644 (file)
@@ -75,7 +75,7 @@ header( "Content-type: text/html; charset=utf-8" );
 <div id="credit">
  <center>
   <a href="http://www.mediawiki.org/"><img
-    src="../stylesheets/images/wiki.png" width="135" height="135" alt="" border="0" /></a>
+    src="../skins/common/images/wiki.png" width="135" height="135" alt="" border="0" /></a>
  </center>
 
  <b><a href="http://www.mediawiki.org/">MediaWiki</a></b> is
@@ -110,6 +110,7 @@ header( "Content-type: text/html; charset=utf-8" );
 $IP = ".."; # Just to suppress notices, not for anything useful
 define( "MEDIAWIKI", true );
 define( "MEDIAWIKI_INSTALL", true );
+require_once( "../includes/Defines.php" );
 require_once( "../includes/DefaultSettings.php" );
 require_once( "../includes/MagicWord.php" );
 require_once( "../includes/Namespace.php" );
@@ -184,10 +185,41 @@ class ConfigData {
 <?php
 $endl = "
 ";
+$wgConfiguring = true;
 $conf = new ConfigData;
 
 install_version_checks();
-print "<li>PHP " . phpversion() . " ok</li>\n";
+
+print "<li>PHP " . phpversion() . ": ";
+if( version_compare( phpversion(), "5.0", "lt" ) ) {
+       print "ok";
+} else {
+       print " <b>the MonoBook skin will be disabled due to an incompatibility
+               between the PHPTAL template library and PHP 5</b>. The wiki should
+               function normally, but with the older look and feel.";
+}
+print "</li>\n";
+
+if( ini_get( "register_globals" ) ) {
+       ?>
+       <li><b class='error'>Warning:</b> <b>PHP's
+       <tt><a href="http://php.net/register_globals">register_globals</a></tt>
+       option is enabled.</b> MediaWiki will work correctly, but this setting
+       increases your exposure to potential security vulnerabilities in PHP-based
+       software running on your server. <b>You should disable it if you are able.</b></li>
+       <?php
+}
+
+if( ini_get( "safe_mode" ) ) {
+       ?>
+       <li class='error'><b>Warning: PHP's
+       <a href='http://www.php.net/features.safe-mode'>safe mode</a> is active!</b>
+       You will likely have problems caused by this. You may need to make the
+       'images' subdirectory writable or specify a TMP environment variable pointing to
+       a writable temporary directory owned by you, since safe mode breaks the system
+       temporary directory.</li>
+       <?php
+}
 
 $sapi = php_sapi_name();
 $conf->prettyURLs = true;
@@ -212,7 +244,9 @@ $conf->xml = function_exists( "utf8_encode" );
 if( $conf->xml ) {
        print "<li>Have XML / Latin1-UTF-8 conversion support.</li>\n";
 } else {
-       print "<li><b>XML / Latin1-UTF-8 conversion is missing! Wiki will probably not work.</b></li>\n";
+       dieout( "PHP's XML module is missing; the wiki requires functions in
+               this module and won't work in this configuration.
+               If you're running Mandrake, install the php-xml package." );
 }
 
 $memlimit = ini_get( "memory_limit" );
@@ -244,21 +278,33 @@ if( $conf->zlib ) {
        print "<li>No zlib support.</li>\n";
 }
 
+$conf->turck = function_exists( 'mmcache_get' );
+if ( $conf->turck ) {
+       print "<li><a href=\"http://turck-mmcache.sourceforge.net/\">Turck MMCache</a> installed</li>\n";
+} else {
+       print "<li><a href=\"http://turck-mmcache.sourceforge.net/\">Turck MMCache</a> not installed, " .
+         "can't use object caching functions</li>\n";
+}
+
 $conf->ImageMagick = false;
+$imcheck = array( "/usr/bin", "/usr/local/bin", "/sw/bin", "/opt/local/bin" );
+foreach( $imcheck as $dir ) {
+       $im = "$dir/convert";
+       if( file_exists( $im ) ) {
+               print "<li>Found ImageMagick: <tt>$im</tt>; image thumbnailing will be enabled if you enable uploads.</li>\n";
+               $conf->ImageMagick = $im;
+               break;
+       }
+}
 
 $conf->HaveGD = function_exists( "imagejpeg" );
 if( $conf->HaveGD ) {
-       print "<li>Found GD graphics library built-in, image thumbnailing will be enabled if you enable uploads.</li>\n";
-} else {
-       $imcheck = array( "/usr/bin", "/usr/local/bin", "/sw/bin" );
-       foreach( $imcheck as $dir ) {
-               $im = "$dir/convert";
-               if( file_exists( $im ) ) {
-                       print "<li>Found ImageMagick: <tt>$im</tt>; image thumbnailing will be enabled if you enable uploads.</li>\n";
-                       $conf->ImageMagick = $im;
-                       break;
-               }
+       print "<li>Found GD graphics library built-in";
+       if( !$conf->ImageMagick ) {
+               print ", image thumbnailing will be enabled if you enable uploads";
        }
+       print ".</li>\n";
+} else {
        if( !$conf->ImageMagick ) {
                print "<li>Couldn't find GD library or ImageMagick; image thumbnailing disabled.</li>\n";
        }
@@ -267,10 +313,7 @@ if( $conf->HaveGD ) {
 $conf->UseImageResize = $conf->HaveGD || $conf->ImageMagick;
 
 # $conf->IP = "/Users/brion/Sites/inplace";
-chdir( ".." );
-$conf->IP = getcwd();
-$conf->IP = preg_replace( "/\\\\/","\\\\\\\\",$conf->IP );  // For Windows, \ -> \\
-chdir( "config" );
+$conf->IP = dirname( dirname( __FILE__ ) );
 print "<li>Installation directory: <tt>" . htmlspecialchars( $conf->IP ) . "</tt></li>\n";
 
 # $conf->ScriptPath = "/~brion/inplace";
@@ -298,6 +341,9 @@ $errs = array();
 if( $conf->Sitename == "" || $conf->Sitename == "MediaWiki" || $conf->Sitename == "Mediawiki" ) {
        $errs["Sitename"] = "Must not be blank or \"MediaWiki\".";
 }
+if( $conf->DBuser == "" ) {
+       $errs["DBuser"] = "Must not be blank";
+}
 if( $conf->DBpassword == "" ) {
        $errs["DBpassword"] = "Must not be blank";
 }
@@ -312,19 +358,37 @@ if( $conf->SysopPass != $conf->SysopPass2 ) {
        $errs["SysopPass2"] = "Passwords don't match!";
 }
 
-$conf->License = importPost( "License", "none" );
+$conf->License = importRequest( "License", "none" );
 if( $conf->License == "gfdl" ) {
        $conf->RightsUrl = "http://www.gnu.org/copyleft/fdl.html";
        $conf->RightsText = "GNU Free Documentation License 1.2";
        $conf->RightsCode = "gfdl";
-       $conf->RightsIcon = '${wgStylePath}/images/gnu-fdl.png';
+       $conf->RightsIcon = '${wgStylePath}/common/images/gnu-fdl.png';
 } elseif( $conf->License == "none" ) {
        $conf->RightsUrl = $conf->RightsText = $conf->RightsCode = $conf->RightsIcon = "";
 } else {
-       $conf->RightsUrl = importPost( "RightsUrl", "" );
-       $conf->RightsText = importPost( "RightsText", "" );
-       $conf->RightsCode = importPost( "RightsCode", "" );
-       $conf->RightsIcon = importPost( "RightsIcon", "" );
+       $conf->RightsUrl = importRequest( "RightsUrl", "" );
+       $conf->RightsText = importRequest( "RightsText", "" );
+       $conf->RightsCode = importRequest( "RightsCode", "" );
+       $conf->RightsIcon = importRequest( "RightsIcon", "" );
+}
+
+$conf->Shm = importRequest( "Shm", "none" );
+$conf->MCServers = importRequest( "MCServers" );
+
+/* Test memcached servers */
+
+if ( $conf->Shm == 'memcached' && $conf->MCServers ) {
+       $conf->MCServerArray = array_map( 'trim', explode( ',', $conf->MCServers ) );
+       foreach ( $conf->MCServerArray as $server ) {
+               $error = testMemcachedServer( $server );
+               if ( $error ) {
+                       $errs["MCServers"] = $error;
+                       break;
+               }
+       }
+} else if ( $conf->Shm == 'memcached' ) {
+       $errs["MCServers"] = "Please specify at least one server if you wish to use memcached";
 }
 
 if( $conf->posted && ( 0 == count( $errs ) ) ) {
@@ -336,8 +400,8 @@ if( $conf->posted && ( 0 == count( $errs ) ) ) {
                $wgCommandLineMode = false;
                chdir( ".." );
                eval($local);
-               $wgDBadminuser = $wgDBuser;
-               $wgDBadminpassword = $wgDBpassword;
+               $wgDBadminuser = "root";
+               $wgDBadminpassword = $conf->RootPW;
                $wgCommandLineMode = true;
                $wgUseDatabaseMessages = false; /* FIXME: For database failure */
                require_once( "includes/Setup.php" );
@@ -359,11 +423,14 @@ if( $conf->posted && ( 0 == count( $errs ) ) ) {
                        $ok = false;
                        switch( $err ) {
                        case 1045:
+                       case 2000:
                                if( $conf->Root ) {
                                        $errs["RootPW"] = "Check password";
                                } else {
                                        print "<li>Trying regular user...\n";
                                        /* Try the regular user... */
+                                       $wgDBadminuser = $wgDBuser;
+                                       $wgDBadminpassword = $wgDBpassword;
                                        $wgDatabase = Database::newFromParams( $wgDBserver, $wgDBuser, $wgDBpassword, "", 1 );
                                        $wgDatabase->isOpen();
                                        $wgDatabase->mIgnoreErrors = true;
@@ -425,32 +492,23 @@ if( $conf->posted && ( 0 == count( $errs ) ) ) {
                $wgDatabase->selectDB( $wgDBname );
 
                if( $wgDatabase->tableExists( "cur" ) ) {
-                       print "<li>There are already MediaWiki tables in this database. Checking if updates are needed...</li>\n<pre>";
-
+                       print "<li>There are already MediaWiki tables in this database. Checking if updates are needed...</li>\n";
+                       
+                       # Create user if required
+                       if ( $conf->Root ) {
+                               $conn = Database::newFromParams( $wgDBserver, $wgDBuser, $wgDBpassword, $wgDBname, 1 );
+                               if ( $conn->isOpen() ) {
+                                       print "<li>DB user account ok</li>\n";
+                                       $conn->close();
+                               } else {
+                                       print "<li>Granting user permissions...</li>\n";
+                                       dbsource( "../maintenance/users.sql", $wgDatabase );
+                               }
+                       }
+                       print "<pre>\n";
                        chdir( ".." );
                        flush();
-                       do_ipblocks_update(); flush();
-                       do_interwiki_update(); flush();
-                       do_index_update(); flush();
-                       do_linkscc_update(); flush();
-                       do_linkscc_1_3_update(); flush();
-                       do_hitcounter_update(); flush();
-                       do_recentchanges_update(); flush();
-                       convertLinks(); flush();
-                       do_user_real_name_update(); flush();
-                       do_querycache_update(); flush();
-                       do_objectcache_update(); flush();
-                       do_categorylinks_update(); flush();
-
-                       if ( isTemplateInitialised() ) {
-                               print "Template namespace already initialised\n";
-                       } else {
-                               moveCustomMessages( 1 ); flush();
-                               moveCustomMessages( 2 ); flush();
-                               moveCustomMessages( 3 ); flush();
-                       }
-
-                       initialiseMessages(); flush();
+                       do_all_updates();
                        chdir( "config" );
 
                        print "</pre>\n";
@@ -460,7 +518,7 @@ if( $conf->posted && ( 0 == count( $errs ) ) ) {
                        print "<li>Creating tables...";
                        dbsource( "../maintenance/tables.sql", $wgDatabase );
                        dbsource( "../maintenance/interwiki.sql", $wgDatabase );
-                       dbsource( "../maintenance/indexes.sql", $wgDatabase );
+                       dbsource( "../maintenance/archives/patch-userlevels-defaultgroups.sql", $wgDatabase );
                        print " done.</li>\n";
 
                        print "<li>Initializing data...";
@@ -510,9 +568,10 @@ if( $conf->posted && ( 0 == count( $errs ) ) ) {
 
                        $titleobj = Title::newFromText( wfMsgNoDB( "mainpage" ) );
                        $title = $titleobj->getDBkey();
-                       $sql = "INSERT INTO cur (cur_namespace,cur_title,cur_text,cur_timestamp,inverse_timestamp,cur_touched) " .
+                       $sql = "INSERT INTO cur (cur_namespace,cur_title,cur_text,cur_timestamp,inverse_timestamp,cur_touched,cur_user,cur_user_text) " .
                          "VALUES (0,'$title','" .
-                         wfStrencode( wfMsg( "mainpagetext" ) . "\n\n" . wfMsg( "mainpagedocfooter" ) ) . "','$now','$won','$now')";
+                         wfStrencode( wfMsg( "mainpagetext" ) . "\n\n" . wfMsg( "mainpagedocfooter" ) ) .
+                         "','$now','$won','$now',0,'MediaWiki default')";
                        $wgDatabase->query( $sql, $fname );
 
                        print "<li><pre>";
@@ -536,11 +595,16 @@ if( $conf->posted && ( 0 == count( $errs ) ) ) {
                        "<p>Here's the file that would have been written, try to paste it into place manually:</p>\n" .
                        "<pre>\n" . htmlspecialchars( $localSettings ) . "</pre>\n" );
                }
-               fwrite( $f, $localSettings );
-               fclose( $f );
+               if(fwrite( $f, $localSettings ) ) {
+                       fclose( $f );
 
-               print "<p>Success! Move the config/LocalSettings.php file into the parent directory, then follow
-               <a href='{$conf->ScriptPath}/index.php'>this link</a> to your wiki.</p>\n";
+                       print "<p>Success! Move the config/LocalSettings.php file into the parent directory, then follow
+                       <a href='{$conf->ScriptPath}/index.php'>this link</a> to your wiki.</p>\n";
+               } else {
+                       fclose( $f );
+                       die("<p class='error'>An error occured while writing the config/LocalSettings.php file. Check user rights and disk space then try again.</p>\n");
+                        
+               }
 
        } while( false );
 }
@@ -594,7 +658,7 @@ if( count( $errs ) ) {
                <?php
                        $list = getLanguageList();
                        foreach( $list as $code => $name ) {
-                               $sel = ($code == $conf->LanguageCode) ? "selected" : "";
+                               $sel = ($code == $conf->LanguageCode) ? 'selected="selected"' : '';
                                echo "\t\t<option value=\"$code\" $sel>$name</option>\n";
                        }
                ?>
@@ -622,15 +686,20 @@ if( count( $errs ) ) {
                        $icon = urlencode( "$wgServer$wgUploadPath/wiki.png" );
                        $ccApp = htmlspecialchars( "http://creativecommons.org/license/?partner=$partner&exit_url=$exit&partner_icon_url=$icon" );
                        print "<a href=\"$ccApp\">choose</a>";
-                       ?></li>
-               <li><?php aField( $conf, "RightsUrl", $conf->RightsUrl, "hidden" ); ?></li>
-               <li><?php aField( $conf, "RightsText", $conf->RightsText, "hidden" ); ?></li>
-               <li><?php aField( $conf, "RightsCode", $conf->RightsCode, "hidden" ); ?></li>
-               <li><?php aField( $conf, "RightsIcon", $conf->RightsIcon, "hidden" ); ?></li>
+                       ?> (link will wipe out any other data in this form!)
+               <?php if( $conf->License == "cc" ) { ?>
+                       <ul>
+                               <li><?php aField( $conf, "RightsIcon", "<img src=\"" . htmlspecialchars( $conf->RightsIcon ) . "\" alt='icon' />", "hidden" ); ?></li>
+                               <li><?php aField( $conf, "RightsText", htmlspecialchars( $conf->RightsText ), "hidden" ); ?></li>
+                               <li><?php aField( $conf, "RightsCode", "code: " . htmlspecialchars( $conf->RightsCode ), "hidden" ); ?></li>
+                               <li><?php aField( $conf, "RightsUrl", "<a href=\"" . htmlspecialchars( $conf->RightsUrl ) . "\">" . htmlspecialchars( $conf->RightsUrl ) . "</a>", "hidden" ); ?></li>
+                       </ul>
+               <?php } ?>
+                       </li>
                </ul>
        </dd>
        <dt>
-               MediaWiki can include a basic license notice, icon, and machine-reable
+               MediaWiki can include a basic license notice, icon, and machine-readable
                copyright metadata if your wiki's content is to be licensed under
                the GNU FDL or a Creative Commons license. If you're not sure, leave
                it at "none".
@@ -652,7 +721,30 @@ if( count( $errs ) ) {
                wiki database, a sysop account will be created with the given name
                and password.
        </dt>
-</dl>
+
+       <dd>
+               <label class='column'>Shared memory caching</label>
+               <div>Select one:</div>
+
+               <ul class="plain">
+               <li><?php aField( $conf, "Shm", "no caching", "radio", "none" ); ?></li>
+               <?php 
+                       if ( $conf->turck ) {
+                               echo "<li>";
+                               aField( $conf, "Shm", "Turck MMCache", "radio", "turck" );
+                               echo "</li>";
+                       }
+               ?>
+               <li><?php aField( $conf, "Shm", "Memcached", "radio", "memcached" ); ?></li>
+               <li><?php aField( $conf, "MCServers", "Memcached servers", "" ) ?></li>
+               </ul>
+       </dd>
+       <dt>
+               Using a shared memory system such as Turck MMCache or Memcached will speed
+               up MediaWiki significantly. Memcached is the best solution but needs to be 
+               installed. Specify the server addresses and ports in a comma-separted list. Only 
+               use Turck shared memory if the wiki will be running on a single Apache server.
+       </dl>
 
 <h2>Database config</h2>
 
@@ -718,6 +810,18 @@ function writeAdminSettings( $conf ) {
 ";
 }
 
+function escapePhpString( $string ) {
+       return strtr( $string,
+               array(
+                       "\n" => "\\n",
+                       "\r" => "\\r",
+                       "\t" => "\\t",
+                       "\\" => "\\\\",
+                       "\$" => "\\\$",
+                       "\"" => "\\\""
+               ));
+}
+
 function writeLocalSettings( $conf ) {
        $conf->DBmysql4 = @$conf->DBmysql4 ? 'true' : 'false';
        $conf->UseImageResize = $conf->UseImageResize ? 'true' : 'false';
@@ -734,8 +838,26 @@ function writeLocalSettings( $conf ) {
        $pretty = ($conf->prettyURLs ? "" : "# ");
        $ugly = ($conf->prettyURLs ? "# " : "");
        $rights = ($conf->RightsUrl) ? "" : "# ";
+       
+       switch ( $conf->Shm ) {
+               case 'memcached':
+                       $memcached = 'true';
+                       $turck = '#';
+                       $mcservers = var_export( $conf->MCServerArray, true );
+                       break;
+               case 'turck':
+                       $memcached = 'false';
+                       $mcservers = 'array()';
+                       $turck = '';
+                       break;
+               default:
+                       $memcached = 'false';
+                       $mcservers = 'array()';
+                       $turck = '#';
+       }
 
-       $file = @fopen( "/dev/random", "r" );
+
+       $file = @fopen( "/dev/urandom", "r" );
        if ( $file ) {
                $proxyKey = bin2hex( fread( $file, 32 ) );
                fclose( $file );
@@ -744,12 +866,15 @@ function writeLocalSettings( $conf ) {
                for ( $i=0; $i<8; $i++ ) {
                        $proxyKey .= dechex(mt_rand(0, 0x7fffffff));
                }
-               print "Warning: \$wgProxyKey is insecure\n";
+               print "<li>Warning: \$wgProxyKey is insecure</li>\n";
        }
 
        # Add slashes to strings for double quoting
-       $slconf = array_map( "addslashes", get_object_vars( $conf ) );
-
+       $slconf = array_map( "escapePhpString", get_object_vars( $conf ) );
+       if( $conf->License == 'gfdl' ) {
+               # Needs literal string interpolation for the current style path
+               $slconf['RightsIcon'] = $conf->RightsIcon;
+       }
 
        $sep = (DIRECTORY_SEPARATOR == "\\") ? ";" : ":";
        return "
@@ -759,7 +884,7 @@ function writeLocalSettings( $conf ) {
 
 \$IP = \"{$slconf['IP']}\";
 ini_set( \"include_path\", \".$sep\$IP$sep\$IP/includes$sep\$IP/languages\" );
-include_once( \"DefaultSettings.php\" );
+require_once( \"includes/DefaultSettings.php\" );
 
 # If PHP's memory limit is very low, some operations may fail.
 " . ($conf->raiseMemory ? '' : '# ' ) . "ini_set( 'memory_limit', '20M' );" . "
@@ -768,9 +893,9 @@ if ( \$wgCommandLineMode ) {
        if ( isset( \$_SERVER ) && array_key_exists( 'REQUEST_METHOD', \$_SERVER ) ) {
                die( \"This script must be run from the command line\\n\" );
        }
-} else {
+} elseif ( empty( \$wgConfiguring ) ) {
        ## Compress output if the browser supports it
-       {$zlib}if( !ini_get( 'zlib.output_compression' ) ) ob_start( 'ob_gzhandler' );
+       {$zlib}if( !ini_get( 'zlib.output_compression' ) ) @ob_start( 'ob_gzhandler' );
 }
 
 \$wgSitename         = \"{$slconf['Sitename']}\";
@@ -783,9 +908,9 @@ if ( \$wgCommandLineMode ) {
 {$pretty}\$wgArticlePath      = \"\$wgScript/\$1\";
 {$ugly}\$wgArticlePath      = \"\$wgScript?title=\$1\";
 
-\$wgStylePath        = \"\$wgScriptPath/stylesheets\";
-\$wgStyleDirectory   = \"\$IP/stylesheets\";
-\$wgLogo             = \"\$wgStylePath/images/wiki.png\";
+\$wgStylePath        = \"\$wgScriptPath/skins\";
+\$wgStyleDirectory   = \"\$IP/skins\";
+\$wgLogo             = \"\$wgStylePath/common/images/wiki.png\";
 
 \$wgUploadPath       = \"\$wgScriptPath/images\";
 \$wgUploadDirectory  = \"\$IP/images\";
@@ -810,6 +935,11 @@ if ( \$wgCommandLineMode ) {
 
 \$wgDBmysql4 = \$wgEnablePersistentLC = {$conf->DBmysql4};
 
+## Shared memory settings
+\$wgUseMemcached = $memcached;
+\$wgMemCachedServers = $mcservers;
+{$turck}\$wgUseTurckShm = function_exists( 'mmcache_get' ) && php_sapi_name() == 'apache';
+
 ## To enable image uploads, make sure the 'images' directory
 ## is writable, then uncomment this:
 # \$wgDisableUploads           = false;
@@ -840,10 +970,10 @@ if ( \$wgCommandLineMode ) {
 ## License and Creative Commons licenses are supported so far.
 {$rights}\$wgEnableCreativeCommonsRdf = true;
 \$wgRightsPage = \"\"; # Set to the title of a wiki page that describes your license/copyright
-\$wgRightsUrl = \"{$conf->RightsUrl}\";
-\$wgRightsText = \"{$conf->RightsText}\";
-\$wgRightsIcon = \"{$conf->RightsIcon}\";
-# \$wgRightsCode = \"{$conf->RightsCode}\"; # Not yet used
+\$wgRightsUrl = \"{$slconf['RightsUrl']}\";
+\$wgRightsText = \"{$slconf['RightsText']}\";
+\$wgRightsIcon = \"{$slconf['RightsIcon']}\";
+# \$wgRightsCode = \"{$slconf['RightsCode']}\"; # Not yet used
 ";
 }
 
@@ -851,9 +981,9 @@ function dieout( $text ) {
        die( $text . "\n\n</body>\n</html>" );
 }
 
-function importPost( $name, $default = "" ) {
-       if( isset( $_POST[$name] ) ) {
-               $retval = $_POST[$name];
+function importVar( &$var, $name, $default = "" ) {
+       if( isset( $var[$name] ) ) {
+               $retval = $var[$name];
                if ( get_magic_quotes_gpc() ) {
                        $retval = stripslashes( $retval );
                }
@@ -863,6 +993,14 @@ function importPost( $name, $default = "" ) {
        return $retval;
 }
 
+function importPost( $name, $default = "" ) {
+       return importVar( $_POST, $name, $default );
+}
+
+function importRequest( $name, $default = "" ) {
+       return importVar( $_REQUEST, $name, $default );
+}
+
 function aField( &$conf, $field, $text, $type = "", $value = "" ) {
        if( $type != "" ) {
                $xtype = "type=\"$type\"";
@@ -901,7 +1039,7 @@ function aField( &$conf, $field, $text, $type = "", $value = "" ) {
 function getLanguageList() {
        global $wgLanguageNames;
        if( !isset( $wgLanguageNames ) ) {
-               $wgLanguageCode = "xxx";
+               $wgContLanguageCode = "xxx";
                function wfLocalUrl( $x ) { return $x; }
                function wfLocalUrlE( $x ) { return $x; }
                require_once( "../languages/Names.php" );
@@ -912,8 +1050,8 @@ function getLanguageList() {
 
        $d = opendir( "../languages" );
        while( false !== ($f = readdir( $d ) ) ) {
-               if( preg_match( '/Language([A-Z][a-z]+)\.php$/', $f, $m ) ) {
-                       $code = strtolower( $m[1] );
+               if( preg_match( '/Language([A-Z][a-z_]+)\.php$/', $f, $m ) ) {
+                       $code = str_replace( '_', '-', strtolower( $m[1] ) );
                        if( in_array( $code, $latin1 ) ) {
                                $codes[$code] = "$code - " . $wgLanguageNames[$code] . " - Unicode";
                                $codes[$code.'-latin1'] = "$code - " . $wgLanguageNames[$code] . " - Latin-1";
@@ -927,6 +1065,50 @@ function getLanguageList() {
        return $codes;
 }
 
+# Test a memcached server
+function testMemcachedServer( $server ) {
+       $hostport = explode(":", $server);
+       $errstr = false;
+       $fp = false;
+       if ( !function_exists( 'fsockopen' ) ) {
+               $errstr = "Can't connect to memcached, fsockopen() not present";
+       }
+       if ( !$errstr &&  count( $hostport ) != 2 ) {
+               $errstr = 'Please specify host and port';
+               var_dump( $hostport );
+       }
+       if ( !$errstr ) {
+               list( $host, $port ) = $hostport;
+               $errno = 0;
+               $fsockerr = '';
+
+               $fp = @fsockopen( $host, $port, $errno, $fsockerr, 1.0 );
+               if ( $fp === false ) {
+                       $errstr = "Cannot connect to memcached on $host:$port : $fsockerr";
+               }
+       }
+       if ( !$errstr ) {
+               $command = "version\r\n";
+               $bytes = fwrite( $fp, $command );
+               if ( $bytes != strlen( $command ) ) {
+                       $errstr = "Cannot write to memcached socket on $host:$port";
+               }
+       }
+       if ( !$errstr ) {
+               $expected = "VERSION ";
+               $response = fread( $fp, strlen( $expected ) );
+               if ( $response != $expected ) {
+                       $errstr = "Didn't get correct memcached response from $host:$port";
+               }
+       }
+       if ( $fp ) {
+               fclose( $fp );
+       }
+       if ( !$errstr ) {
+               echo "<li>Connected to memcached on $host:$port successfully";
+       }
+       return $errstr;
+}
 ?>
 
 </body>